home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1995 July / 64er_Magazin_95-07_1995_Markt__Technik_de_Side_A.d64 / listing 04 (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1995-01-01  |  354 b   |  19 lines
  1. 1000 rem string-zahl-w. mit nachkomma
  2. 1010 t$="12.34":z=0:a=0.1:k$="."
  3. 1020 rem komma suchen
  4. 1030 for i=1tolen(t$)
  5. 1040 ifk$<>left$(right$(t$,i),1)thennexti
  6. 1050 k=i
  7. 1060 rem nachkommastelle berechnen
  8. 1070 for i=1tok-1
  9. 1080 t=asc(left$(right$(t$,i),1))-48
  10. 1090 z=z+t*a:a=a/10
  11. 1100 nexti
  12. 1110 rem vorkommatelle berechnen
  13. 1120 a=1
  14. 1130 for i=k+1 to len(t$)
  15. 1140 t=asc(left$(right$(t$,i),1))-48
  16. 1150 z=z+t*a:a=a*10
  17. 1160 next i
  18. 1170 print z
  19.